home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / ipworks / send.fr_ / send.fr (.txt)
Encoding:
Visual Basic Form  |  1996-03-14  |  4.4 KB  |  149 lines
  1. VERSION 2.00
  2. Begin Form frmSend 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "EMAIL DEMO - Send Mail"
  5.    ClientHeight    =   3675
  6.    ClientLeft      =   1785
  7.    ClientTop       =   4425
  8.    ClientWidth     =   6570
  9.    Height          =   4080
  10.    Left            =   1725
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   3675
  13.    ScaleWidth      =   6570
  14.    Top             =   4080
  15.    Width           =   6690
  16.    Begin CommandButton Command4 
  17.       Caption         =   "Send Message"
  18.       Height          =   315
  19.       Left            =   4560
  20.       TabIndex        =   4
  21.       Top             =   90
  22.       Width           =   1815
  23.    End
  24.    Begin TextBox tMessage 
  25.       FontBold        =   0   'False
  26.       FontItalic      =   0   'False
  27.       FontName        =   "MS Sans Serif"
  28.       FontSize        =   8.25
  29.       FontStrikethru  =   0   'False
  30.       FontUnderline   =   0   'False
  31.       Height          =   2295
  32.       Left            =   0
  33.       MultiLine       =   -1  'True
  34.       ScrollBars      =   3  'Both
  35.       TabIndex        =   3
  36.       Top             =   1200
  37.       Width           =   6495
  38.    End
  39.    Begin TextBox tTo 
  40.       FontBold        =   0   'False
  41.       FontItalic      =   0   'False
  42.       FontName        =   "MS Sans Serif"
  43.       FontSize        =   8.25
  44.       FontStrikethru  =   0   'False
  45.       FontUnderline   =   0   'False
  46.       Height          =   285
  47.       Left            =   960
  48.       TabIndex        =   1
  49.       Top             =   120
  50.       Width           =   3495
  51.    End
  52.    Begin TextBox tFrom 
  53.       FontBold        =   0   'False
  54.       FontItalic      =   0   'False
  55.       FontName        =   "MS Sans Serif"
  56.       FontSize        =   8.25
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   285
  60.       Left            =   960
  61.       TabIndex        =   0
  62.       Top             =   840
  63.       Width           =   3495
  64.    End
  65.    Begin TextBox tSubject 
  66.       FontBold        =   0   'False
  67.       FontItalic      =   0   'False
  68.       FontName        =   "MS Sans Serif"
  69.       FontSize        =   8.25
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       Height          =   285
  73.       Left            =   960
  74.       TabIndex        =   2
  75.       Top             =   480
  76.       Width           =   5415
  77.    End
  78.    Begin Label l3 
  79.       BackStyle       =   0  'Transparent
  80.       Caption         =   "From:"
  81.       Height          =   255
  82.       Index           =   2
  83.       Left            =   120
  84.       TabIndex        =   7
  85.       Top             =   840
  86.       Width           =   855
  87.    End
  88.    Begin Label l2 
  89.       BackStyle       =   0  'Transparent
  90.       Caption         =   "Subject:"
  91.       Height          =   255
  92.       Index           =   1
  93.       Left            =   120
  94.       TabIndex        =   6
  95.       Top             =   480
  96.       Width           =   855
  97.    End
  98.    Begin Label l1 
  99.       BackStyle       =   0  'Transparent
  100.       Caption         =   "To:"
  101.       Height          =   255
  102.       Index           =   0
  103.       Left            =   120
  104.       TabIndex        =   5
  105.       Top             =   120
  106.       Width           =   855
  107.    End
  108.    Begin SMTP SMTP1 
  109.       BCc             =   ""
  110.       Cc              =   ""
  111.       Date            =   ""
  112.       From            =   ""
  113.       Height          =   420
  114.       Left            =   4680
  115.       MailServer      =   ""
  116.       MessageText     =   ""
  117.       RegHandle       =   SEND.FRX:0000
  118.       ReplyTo         =   ""
  119.       Subject         =   ""
  120.       To              =   ""
  121.       Top             =   720
  122.       Width           =   420
  123.       WinsockLoaded   =   0   'False
  124.    End
  125. Sub Command4_Click ()
  126. SMTP1.WinsockLoaded = True
  127. SMTP1.MailServer = frmMain.tMailServer
  128. SMTP1.Action = 4 'Reset Headers
  129. SMTP1.From = tFrom
  130. SMTP1.To = tTo
  131. SMTP1.Subject = tSubject
  132. SMTP1.MessageText = tMessage
  133. MousePointer = 11
  134. SMTP1.Action = 3' 'Send Message
  135. MousePointer = 0
  136. SMTP1.Action = 2' 'Disconnect From Server
  137. End Sub
  138. Sub Form_Resize ()
  139. If WindowState <> 1 Then
  140.     If ScaleWidth - tSubject.Left > 120 Then
  141.         tSubject.Width = ScaleWidth - tSubject.Left - 120
  142.     End If
  143.     tMessage.Width = ScaleWidth
  144.     If ScaleHeight - tMessage.Top > 10 Then
  145.         tMessage.Height = ScaleHeight - tMessage.Top
  146.     End If
  147. End If
  148. End Sub
  149.